home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43b.d64 / 26zeilen demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  39 lines
  1. 0 :POKE2053,143:LOAD"GENERATOR 26",8,1
  2. 10 SYS49179:SYS49152:POKE16383,255:POKE49504,PEEK(53280)-128
  3. 11 B=25:PRINT"[147]":GOSUB45:PRINT26;:GOSUB46
  4. 12 PRINT:PRINT"ZEILE 0 WIRD GLEICH"
  5. 13 B=24:PRINT"'FESTGENAGELT'":GOSUB46:GOSUB45:GOSUB46
  6. 14 POKE1,55:GOSUB45
  7. 15 PRINT"AUCH BEIM BILDSCHIRMLOESCHEN IST ZEILE 0BEI POKE1,55 NICHT BEEINFLUSSBAR !"
  8. 16 GOSUB46:PRINT"[147]KANN ABER DURCH 'SYS' BEFEHLE BE-       SCHRIEBEN WERDEN"
  9. 17 GOSUB46:SYS49369,"SYS49369,AUSDR. / SYS49358,SPALTE,AUSDR."
  10. 18 PRINT"EBENSO KANN ZEILE 0 DURCH SYS 49168     GELOESCHT WERDEN !":GOSUB46
  11. 19 SYS49168
  12. 20 PRINT"ALS SONDERZEICHEN WERDEN NUR [RVS ON]   UND [RVS OFF] AUSGEFUEHRT"
  13. 21 GOSUB46
  14. 22 X$="HIER[146] EIN KLEINES[146] BEISPIEL MIT[146] 40 ZEICHEN[146]":SYS49369,X$
  15. 23 GOSUB46
  16. 24 PRINT"EIN LEN(X$) BEFEHL ERGIBT ABER"LEN(X$):PRINT"ZEICHEN"
  17. 25 GOSUB46:PRINT"[147]ANDERE STEUERZEICHEN WERDEN NICHT AUS-  GEFUEHRT,";
  18. 26 PRINT"AUSSER [CRSR RIGHT]"
  19. 27 GOSUB46
  20. 28 SYS49369,"[145][145][145][145][157][157][157][157][145][145][145][145][157][157][157][157][157]"
  21. 29 GOSUB46
  22. 30 PRINT"STOERT DER SCHWARZE RAND ?"
  23. 31 PRINT"VERURSACHER IST DIE SPEICHERZELLE 16383 JETZT WERDEN DIE WERTE ";
  24. 32 PRINT"VON 0 BIS 255 IN DIE SPEICHERZELLE GEPOKED "
  25. 33 GOSUB46
  26. 34 FORA=0TO255:POKE16383,A:NEXT
  27. 35 GOSUB46
  28. 36 PRINT"JETZT STEHT 0 DRIN":POKE16383,0
  29. 37 PRINT"DIE FARBE DES RANDES KANN IN 49504      GEAENDERT WERDEN"
  30. 38 GOSUB46:FORB=0TO127:POKE49504,B:NEXT:GOSUB46
  31. 39 PRINT"ER KANN ABER AUCH MIT POKE 49504,128    ABGESCHALTET WERDEN"
  32. 40 GOSUB46:POKE49504,128
  33. 41 GOSUB46:PRINT"[147]ZEILE 0 WIRD DURCH POKE 1,53 WIEDER     FREIGEGEBEN "
  34. 42 POKE1,53:B=25:GOSUB46
  35. 43 GOSUB45:PRINT26;:GOSUB46
  36. 44 END
  37. 45 FORA=1TOB:PRINTA:NEXT:RETURN
  38. 46 POKE198,0:WAIT198,1:RETURN
  39.